PrintLn "@X03You enter a dimly lit room, a flickering bulb over the exit on the other"
PrintLn "@X03side of the room is crackling. the door suddenly opens and a small hunched"
PrintLn "@X03disoriented fellow walks in. Dr. Sonombulus catches sight of you and wadles"
PrintLn "@X03over. So " + STRING005 + " you want to sleep for a while...eh?"
PrintLn
PrintLn "@X03Dr. Sonombulus pushs a booklet into your hands, and waddles out again, the"
PrintLn "highlights of the book are thus: You give up all of your Cash, both banked"
PrintLn "and in hand, you lose your armor, and you lose all of your weapons, but for"
PrintLn "this, you get nearly eternal life, in the CRYO-CUBE. When you next wake up"
PrintLn "many days could have passed, but you will still be your same old self, sans"
PrintLn "anything you own. So go enjoy your vactaion, and when you wake up, you will"
PrintLn "still be here! Sounds pretty good to you so..."
PrintLn
STRING004 = ""
InputStr "@X0BDo you need to sleep for a long time @X02(@X0A" + YesChar() + "@X02/@X0A" + NoChar() + "@X02)", STRING004, 10, 1, "", 8 + 16384 + 2 + 4 + 128 + 32
If (STRING004 == "") Goto LABEL002
If (STRING004 == "N") Goto LABEL005
If (STRING004 == "Y") Then
:LABEL003
Print "@X0BOk, ", STRING005, " how many days do you want to sleep for"
STRING004 = ""
InputStr "", STRING004, 10, 3, Mask_Num(), 2 + 4
If (STRING004 == "") Goto LABEL003
Cls
PrintLn "@X03You settle into the comfy Cryo-Chair, and settle back as the canopy closes"
PrintLn "@X03around you. You start to feel very sleepy, and in the haze you feel your"
PrintLn "@X03armor stripped off, weapons removed, and you feel a hand rooting around in"
PrintLn "@X03your pockets. All in all a pleasant way to drift off..."
DPut 0, "VITALITY", "C"
PrintLn "@X0EDescent into CRYO-CUBE complete "
DPut 0, "CASH", 0
PrintLn "@X0ECash removed."
DPut 0, "BANKED", 0
PrintLn "@X0EBank accounts closed and funds turned over to the state."
DPut 0, "WEAPN0", "0"
PrintLn "@X0EWeapons sold at auction."
DPut 0, "WEAPN1", "0"
DPut 0, "WEAPN2", "0"
PrintLn "@X0EArmor stripped and sold for scrap."
DPut 0, "ARMOR_N", "0"
PrintLn "@X0CCryo-Lock set for @X8C", STRING004, "@X0C days!@X0F"